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-- Miscellaneous. Mesa Edited by Sandman on October 11, 1977 9:46 AM 

DIRECTORY 

AUoDefs: FROM "aUodefs", 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldef s" , 
FrameDefs: FROM "framedefs", 
ImageOefs: FROM "imagedefs", 
InlineDefs: FROM "in! inedef s" , 
MiscDefs: FROM "miscdefs", 
Mopcodes: FROM "mopcodes", 
OsStaticDefs: FROM "osstaticdefs" , 
ProcessDefs: FROM "processdef s" , 
SegmentDefs: FROM "segmentdefs" , 
TrapDefs: FROM "trapdefs"; 

DEFINITIONS FROM ControlDefs; 

Miscellaneous: PROGRAM 

IMPORTS FrameDefs, SegmentDefs 

EXPORTS FrameDefs, ImageDefs, InlineDefs, MiscDefs, TrapDefs 

SHARES ControlDefs, ImageDefs = BEGIN 

PORTI: MACHINE CODE = INLINE [Mopcodes . zPORTI] ; 

gftrover: CARDINAL «- 0; — okay to start a because incremented before used 

NoGlobalFrameSlots: PUBLIC SIGNAL [CARDINAL] = CODE; 

EnterGTobalFrame: PUBLIC PROCEDURE [frame: Global FrameHandle, nslots: CARDINAL] RETURNS [entryindex: 
♦*GFTIndex] = 
BEGIN 

gft: POINTER TO ARRAY [0..0) OF GFTItem = REGISTER[GFTreg] ; 
sd: POINTER TO ARRAY [0..0) OF CARDINAL = REGISTER[SDreg] ; 
i, imax, n, epoffset: CARDINAL; 

i ♦• gftrover; imax *• sd[sGFTLength] - nslots; n ♦■ 0; 
DO 

IF (i ^ IF i>=imax THEN 1 ELSE i+1) = gftrover 

THEN SIGNAL NoGlobal FrameSl ots[nslots] ; 
IF gftt[i]. frame j^ NULLFrame 
THEN n ♦• 

ELSE IF gftt[i].epbase = NULLEpBase 
THEN n *• Q 

ELSE IF (n ^ n+1) = nslots THEN EXIT; 
ENDLOOP; 
entryindex ♦• (gftrover*-i )-nslots + l ; epoffset <- 0; 
FOR i IN [entryindex. .gftrover] DO 
gftt[i] 4- GFTItem[frame, epoffset]; 
epoffset ^ epoffset + eprange; 
ENDLOOP; 
RETURN 
END; 

RemoveGlobalFrame: PUBLIC PROCEDURE [frame: Global FrameHandle] = 
BEGIN 

gft: POINTER TO ARRAY [0..0) OF GFTItem = REGISTER[GFTreg] ; 
sd: POINTER TO ARRAY [0..0) OF CARDINAL = REGISTER[SDreg] ; 
i: CARDINAL; 

FOR i ♦- frame, gftindex . gftindex, i + 1 
WHILT i<sd[sGFTlengLh] AND gf tt[ i ] . f rame=f rame DO 

gftt[j] ^ GFTItem[NULLrrame, NULLEpBase]; 

CNDLOOP; 
RfTURN 
CND; 

Releaseframe: PUBLIC PROCEDURE [ frame :Global FrameHandle] = 
BfGIN 

update! inks: PROCrOURC [ f :G1 obal FrameHandl e] 
RfTURNS [BOOl CAN] = BEGIN 
ir r ^ frame THFN 
BFGIN 
If f.pc = AND ( f+globa1base) . access! ink = frame THFN 

( f + g!obalbase) . access! ink ♦- NUl.l Frame; 
If f. owner link = frame THFN 

f.ownerlink ♦- f rame . owner! i nk ; 
If r.bindentry = frame THfN 
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f.bindentry ♦- frame. bind! ink; 
IF f.bindlink = frame THEN 

f.bindlink ^ frame. bind! ink; 
END; 
RETURN[FALSE] 
END; 
[] ♦• FrameDefs.EnumerateGlobalFrames[updat8l inks]; 
RemoveGloba1Frame[ frame] ; 
Free[frame]; 
RETURN 
END; 

DeletedFrame: PUBLIC PROCEDURE [gfi: GFTIndex] RETURNS [BOOLEAN] = 
BEGIN 

gft: POINTER TO ARRAY [0..0) OF GFTItem = REGISTER[GFTreg] ; 
RETURN[gft[gfi] = [frame: NULLFrame, epbase: NULLEpBase]] ; 
END; 

LockCode: PUBLIC PROCEDURE [link: UNSPECIFIED] = 
BEGIN 

FrameDef s .SwapInCode[FrameDefs .Global Frame[l ink]] ; 
RETURN 
END; 

UnlockCode: PUBLIC PROCEDURE [link: UNSPECIFIED] = 
BEGIN 

SegmentDef s. Unlock [FrameDef s. Global Frame [1 ink] . codesegment] ; 
RETURN 
END; 

CodeSegment: PUBLIC PROCEDURE [frame: FrameHandle] 
RETURNS [codeseg: SegmentDef s . Fi leSegmentHandle] = 
BEGIN 

codeseg ♦• frame, access! ink. codesegment ; 
IF codeseg # NIL AND codeseg . class # code THEN ERROR; 
RETURN 
END; 

StackError: PUBLIC ERROR [FrameHandle] = CODE; 

StackErrorTrap: PROCEDURE = 
BEGIN 

state: StateVector; 
state ♦- STATE; 

ERROR StackError[GetReturnFrame[]]; 
END; 

NullPort: PortHandle = LOOPHOLE[0]; 

PortFault: PUBLIC ERROR = CODE; 

LinkageFault: PUBLIC ERROR = CODE; 

ControlFault: PUBLIC SIGNAL [source: FrameHandle] RETURNS [ControlLink] = CODE; 

ControlFauUTrap: PROCEDURE = 
BEGIN 

errorStart, savedState: StateVector; 
p. q: PortHandle; 
sourceFrame, self: FrameHandle; 
savedState <- STATE; 
self ♦- REGISTER[Lreg]; 
IF PortCan[self .returnl ink] THEN 
BEGIN 

p ♦- LOOPflOLE[self .returnl ink]; 
WITH pdest:p SELECT plink FROM 
plink => q <- pdest.port; 
ENDCASC; 
WITH pr:p.pendingFrame SELECT Frame FROM 
frame => sourceFrame *■ pf . f rameL ink ; 
ENDCASE: 
IF q = NullPort THEN 

errorStart . s tk[0] ♦■ LinkageFault 
CISE 
BEGIN 

qt <- Port[TrapL ink .pi ink[p]] ; 
errorStart . stk[0] <- PortFault; 
END; 
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errorStart,stk[l] <- 0; 

errorStart. instbyte ♦• 0; 

errorStart.stkptr ♦- 2; 

errorStart. Y ^ sourceFrame. return! ink; 

errors tart.X ♦•(REGISTER[SDreg]+sError)t; 

IF savedState.stkptr = THEN 

RETURN WITH errorStart -- RESPONDING port 
ELSE 

BEGIN 

p.pendingFrame ♦■ Contro1Link[f rame[self ]]; 

TRANSFER WITH errorStart; 

PORTI; 

p.pendingFrame +• ControlLink[rrame[sourceFrame]] ; 

savedState.Y ♦• p; 

WITH dp:p SELECT plink FROM 

plink => savedState.X ♦- dp. port; 
ENDCASE; 

RETURN WITH savedState; 

END; 
END 
ELSE 
BEGIN 

savedState.Y ♦• self . returnl ink; 

savedState.X *- SIGNAL Control FauU[savedState.Y] ; 
RETURN WITH savedState 
END; 
END; 

PortCall: PROCEDURE [source: ControlLink] RETURNS [BOOLEAN] = 
BEGIN 

portcall: BOOLEAN *- FALSE; 

WITH cLink: source SELECT representation FROM 
representation => 
BEGIN 
WHILE cLink.type = indirecttag DO 

source ♦• LOOPHOLE[cLink . indi rect Control Link] . indirectLinkt; 
ENDLOOP; 
IF cLink.type = frametag THEN 

IF FrameDefs.ReturnByte[LOOPHOLE[cLink, frame ControlLink] . frameLink , 0] = Mopcodes. zPORTI 
THEN portcall *- TRUE; 
END; 
ENDCASE; 
RETURN[portcan] 
END; 

UnboundProcedure: PUBLIC SIGNAL [dest: UnboundDesc] RETURNS [ControlLink] = CODE; 

UnboundProcedureTrap: PROCEDURE [dest: UnboundDesc] = 
BEGIN 

state: StateVector ; 
state ^ STATE; 
state. Y ♦- GetReturnLink[]; 
state. X ♦- SIGNAL UnboundProcedure[dest] ; 
RETURN WITH state 
END; 

Copy: PROCEDURE [oldframe: Gl obalFrameHandle] RETURNS [newframe: Global FrameHandle] = 
BEGIN 

gft: POINTER TO ARRAY [0..1) OF GFTItem = REGISTER[GFTreg] ; 
codeseg: SegmenLDefs . Fi leSegmentHandle ♦- oldframe. codesegmeiit; 
cp: POINTER TO CsegPrefix; 
gfti: GFTIndex; 

oldgfli: GFTIndex «- ol df rame . gf t i ndex . gFt i ndex ; 
i . s ize: CARDINAL ♦• 0; 
procvar: POINTER TO ProcDesc; 
FrameDefs . LockCode[ol df rame] ; 

[newframe, si/e, cp] ^ AT locGlobal Frame[codeseg] ; 
-- initialize control fields 

Tnl ineDefs.COPY[from: oldframe, to: newframe. nwords: SIZr[global FramoBase]]; 
gfti *- In i t ial i/eGlobal rrame[newf rame, cp]; 
-- initialize global proc vars 
procvar *- I OOPHOL r[newf rame + cp . 1 i nkbase] ; 

Inl ineOefs .COPY[f rem: ol dfr ame+cp . 1 inkbase , to: procvar, nwords: cp.nl inks]; 
THROUGH [0. .cp.nl inks) DO 

If procvar .gft index IN [oldgfti .. oldgf t i+cp . ngf i ) 
THEN procvar . gf I index ^ procvar . g f t index-ol dgft i + gfti ; 



miscenaNEOUS.mESA 24-OCT-77 18:38:25 Page 4 



procvar ♦" procvar+1; 

ENDLOOP; 
FrameDefs .Un1ockCode[ old frame] ; 
RETURN 
END; 

AnocGlobalFrame: PROCEDURE [cseg: SegmentDef s. FileSegmentHandle] RETURNS 
[frame: GlobalFrameHandle, size: CARDINAL, cp: POINTER TO CsegPrefix] = 
BEGIN OPEN SegmentDef s; 
codebase: POINTER; 

cp ♦• codebase <- FneSegmentAddress[cseg] ; 
size ♦• cp . EntryVector[MainBodyIndex]. f ramesize; 
IF size = maxanocslot 

THEN size ♦• (codebase+cp . Entry\/ector[MainBodyIndex] . initialpc-l)t; 
frame ♦- ControlDef s.Anoc[size]; 
RETURN 
END; 

InitializeGlobalFrame: PROCEDURE [frame: GlobalFrameHandle. cp : POINTER TO CsegPrefix] 
RETURNS [gfti: GFTIndex] = 
BEGIN 

frame. accessl ink ♦- frame; 
(f rame+globalbase) . access! ink ^ NULLFrame; 
frame. pc ^ ControlDefs .WordPC[0] ; 
frame . returnl ink ♦• ControlLink[f rame[NULLFrame]] ; 
frame. codebase ♦• L00PH0LE[1]: 

gfti *- FrameDefs. EnterGlobal Frame[frame, cp.ngfi]; 
frame. gftindex *- ProcDesc[gf tindex: gfti, epoffset: 0, tag: 0]; 
frame. owner! ink *• NULLFrame; 
frame. bindentry ♦• frame; 
RETURN 
END; 

UnNew: PROCEDURE [frame: GlobalFrameHandle, freeframe: BOOLEAN] = 
BEGIN 

alone: BOOLEAN ♦• TRUE; 

cseg: SegmentDef s . FileSegmentHandle ^ frame. codesegment; 
sseg: SegmentDefs . Fi leSegmentHandle <- frame . symbol segment ; 
RemoveAllTraces: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] = 
BEGIN 

othercseg: SegmentDef s . FileSegmentHandle ♦• f .codesegment; 
IF fj^frame THEN 
BEGIN 

IF cseg = othercseg THEN alone ♦• FALSE; 

IF f.ownerlink = frame THEN f.ownerlink ♦• frame, owner! ink; 
IF f. bindentry = frame THEN f. bindentry *• frame .bind! ink; 
IF f.bindlink = frame THEN f.bindlink ♦• frame .bind! ink; 
IF ( f+globalbase) . accessl ink - frame THEN 

(f+globalbase) . accessl ink ♦- NULLFrame; 
END; 
RETURN[FALSE]; 
END; 
[] ♦- FrameDefs . EnumerateGlobal Frames[RemoveA! ITraces] ; 
IF alone THEN 

BEGIN OPEN SegmentDefs; 

DeleteFi leSegment[cseg ! SwapError => CONTINUE]; 
IF ssegji'NIL THEN Del eteF i leSegmen t[sseg ! SwapError => CONTINUE]; 
END; 
FrameDefs . RemoveGl obal Frame[ frame] ; 
IF freeframe THEN ControlDef s . Free[frame]; 
END; 

-- data shuf fl ing 

SelBlock: PUBLIC PROCFDURE [p:POINTER, v rUNSPECIFTED , 1 :CAROtNAL] = 
BEGIN 

If 1=0 THEN RfTURN; pt ♦- v; 
In! ineDefs .COPY[from:p , to:p+l, nwords:!-!]; 
END; 

READ: PUBl TC PROCEDURF [a: UNSPECIFIED] RFTURNS [UNSPrCiriED] = 
BfGTN RETURN [MrMORY[a]] END; 

WRITf: PUBLIC PROCfDURr [a. v: UNSPECIF irD] = 
BFGTN MrMORY[a] ♦- v; RETURN END; 



miscenaNEOUS.mESA 24-0CT-77 18:38:25 Page 5 



Stringlnit: PROCEDURE [coffset, n, offset: CARDINAL] « 
BEGIN OPEN ControlDefs; 
1: FrameHandle = GetReturnFrame[] ; 
g: GTobalFrameHandle = 1 .access! ink; 
p: POINTER = 1 + offset; 
i: CARDINAL; 
FrameDefs.LockCode[g]; 
InlineDefs.COPY [ 

from:g.codebase+coffset, to:p, nwords:n]; 
FOR i IN [0. .n) DO 

(p+i)t ♦- (p+i)t + g; 

ENDLOOP; 
FrameDefs.UnlockCode[g]; 
RETURN 
END; 

-- procedure 1 ists 

UserCleanupList: POINTER TO ImageDef s .Cleanupltem ♦- NIL; 

AddCleanupProcedure: PUBLIC PROCEDURE [item: POINTER TO ImageDef s .Cleanupltem] = 
BEGIN 

ProcessDefs.Disab1eInterrupts[]; 
Removed eanupProcedu re [item] ; 
item. link ♦• UserCleanupList; 
UserCleanupList ♦• item; 
ProcessDefs. Enablelnterrupts[] ; 
END; 

RemoveCleanupProcedure: PUBLIC PROCEDURE [item: POINTER TO ImageDef s. Cleanupltem] = 
BEGIN 

prev, this: POINTER TO ImageDefs . CI eanupltem; 
IF UserCleanupList = NIL THEN RETURN; 
ProcessDefs.DisableInterrupts[]; 
prev ♦• this ♦- UserCleanupList; 
IF this = item THEN UserCleanupList *• this. link 
ELSE UNTIL (this ^ this. link) = NIL DO 

IF this = item THEN 

BEGIN prev. link *• this. link; EXIT END; 

prev ♦• this; 

ENDLOOP; 
ProcessDefs .Enablelnterrupts[]; 
END; 

UserCleanupProc: PUBLIC ImageDef s .CleanupProcedure = 
BEGIN -- all interrupts off if why = finish or abort 
this, next: POINTER TO ImageDefs . Cleanupltem; 
this *- UserCleanupList; 
UserCleanupList ♦■ NIL; 
WHILE this # NIL DO 

next ♦- this . 1 ink; 

this.proc[why I ANY => IF why <= Abort THEN CONTINUE]; 

AddCleanupProcedure[this] ; 

th is ♦- next; 

ENDLOOP; 
SELECT why FROM 

Finish => ImageDef s . StopMesa[] ; 

Abort => ImageDef s.AbortMesa[] ; 

ENDCASE; 
END; 

-- Image Version 

ImageVers ion: PUBLIC PROCrDURE RETURNS [version: BcdDefs . Vers ionS tamp] = 
BEGIN OPTN ControlDefs, SegmentDefs; 

sd: POTNTTR TO ARRAY [0..0) OF ControlLink = RrGISTER[SOreg] ; 

imagefile: Filellandle <- FrameDefs .Global Frame[sd[sCsegSwappedOu t]] . codesegment. fi le; 
headerseg: f i 1 eSegmentllandl e ♦- Newf i leSegmen t[ imagef i 1 e , 1, 1. Read]; 
image: POINTER TO ImageDefs . Imagelleader ; 
Swapln[headerseg] ; 

image *- f i leSegmen tAddress[headerseg] ; 

IF image, vers ionident ^ ImageDef s .Vers ionlD TfifN ERROR; 
version ♦- image, version ; 
Unlock[headerseg] ; 
Deleter i leSegment[ headerseg] ; 
RETURN 
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END; 

-- signed and mixed mode division 

DIVMOD: MACHINE CODE [n.d: CARDINAL] RETURNS [QR] = INLINE [Mopcodes . zDIV] ; 

LDIVMOD: MACHINE CODE [niow. nh igh . d : CARDINAL] RETURNS [QR] = INLINE [Mopcodes . zLDIV] ; 

QR: TYPE =: RECORD [q. r: INTEGER]; 

PQR: TYPE = POINTER TO QR; 

DivSU: PROCEDURE « 
BEGIN 

neg: BOOLEAN; 

state: ControlDefs.StateVector; 
p: PQR; 

state ♦• STATE; 

state. X *- Contro1Defs.GetReturnLink[]; 
p 4- estate. stk[state. stkptr-2] ; 
IF neg *• (p.q < 0) THEN p.q ♦- -p.q; 
pt <- DI\/MOD[p.q,p.r]; 
IF neg THEN 

BEGIN 

p.q ♦- -p.q; 

p.r <- -p. r; 

END; 
RETURN WITH state 
END; 

LongSignDivide: PROCEDURE [numhigh: INTEGER, pqr: PQR] = 
BEGIN 

negnum, negden: BOOLEAN ♦- FALSE; 
IF negden *- (pqr.r < 0) THEN pqr.r ♦■ -pqr.r; 
IF negnum ♦- (numhigh < 0) THEN 

BEGIN 

IF pqr.q = THEN numhigh *- -numhigh 

ELSE BEGIN pqr.q ♦- -pqr.q; numhigh ♦- In! ineDef s . BITNOT[numhigh] END; 

END; 
pqrt <- LDIVMOD[nlow: pqr.q, nhigh: numhigh, d: pqr.r]; 
-- following assumes TRUE = 1; FALSE = 
IF InlineDefs.BITXOR[LOOPHOLE[negnum],LOOPHOLE[negden]] # THEN 

pqr.q ♦■ -pqr.q; 
IF negnum THEN pqr.r ♦- -pqr.r; 
RETURN 
END; 

DivUS: PROCEDURE = 
BEGIN 

state: ControlDefs.StateVector; 
p: PQR; 

state ♦• STATE; 

state. X ♦- Contro1Defs.GetReturnLink[]; 
p <- Qstate. stk[state . stkptr-2] ; 
LongSignDivide[numhigh : 0, pqr: p]; 
RETURN WITH state 
END; 

DivSS: PROCEDURE = 
BEGIN 

state: ControlDefs.StateVector; 
p: PQR; 

state ^ STATE; 

state. X ♦- ControlDefs.GetReturnLink[]; 
p ^ Qstate . stk[state . stkptr-2] ; 

I ongSignDiv jde[numhigh: (IF p.q<0 THEN -1 ELSE 0), pqr: p]; 
RFTURN WITH State 
END; 

-- Unsigned Compare 

USC: PUBLIC PROCEDURf [al, a2 : WORD] RETURNS [INTEGER] = 
BEGIN 
RETURN [SriECT lOOPHOLr[al, CARDINAL] FROM 

> 100PH0l[[a2, CARDINAL] => 1, 

< L00PM0ir[a2. CARDINAL] => -1. 

fNDCASE => 0]; 
END; 
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— Get Network Number 

wordsPerPup: INTEGER = 280; 
Byte: TYPE = [0..255]; 

PupHeader:TYPE= MACHINE DEPENDENT RECORD [ 
eDest, eSource: Byte, 
eWord2, pupLength: INTEGER. 
transportControl , pupType: Byte, 
pupIDl, pupID2: INTEGER, 
destNet, destHost: Byte, 
destSocketl, destSocket2: INTEGER, 
sourceNet, sourceHost: Byte, 
sourceSocketl, sourceSocket2 : INTEGER, 
xSum:CARDINAL]; 

Pup:TYPE= MACHINE DEPENDENT RECORD [ 
head:PupHeader, 
junkiARRAY [0..300] OF WORD]; 

EthernetDeviceBlock: TYPE = MACHINE DEPENDENT RECORD [ 
EPLocMicrocodeStatus , EPLocHardwareStatus : Byte, 
EBLocInterruptB it: WORD, 
EELocInputFinishCount: INTEGER, 
ELLocColl isionMagic: WORD, 
EILocInputCount: INTEGER, 
EILocInputPointer: POINTER, 
EOLocOutputCount: INTEGER, 
EOLocOutputPointer: POINTER]; 

-- StartIO is Mesa bytecode used to control Ethernet interface 
StartIO: MACHINE CODE [WORD] = INLINE [Mopcodes . zSTARTIO] ; 
outputCommand : WORD = 1; 
inputCommand: WORD = 2; 
resetCommand: WORD = 3; 

timer: POINTER TO INTEGER = LOOPHOLE[430B] ; 

GetNetworkNumber: PUBLIC PROCEDURE RETURNS[CAROINAL] = 
BEGIN 

myHost: Byte ♦• OsStaticOef s .OsStatics . SerialNumber ; 
then: INTEGER ♦- timert; 
now: INTEGER; 

device: POINTER TO EthernetDeviceBlock *- LOOPHOLE[600B] ; 
xpup: Pup; 

pup: POINTER TO Pup = Qxpup; 
gatewayRequest : PupHeader <- [ 

eDest: 0, eSource: myHost, 

eWord2: lOOOB, pupLength: 22, 

transportControl: 0. pupType: 2008, 
pupIDl: , pupID2: , 

destNet: 0, destHost: 0, 

destSocketl: 0, destSocket2: 2, 
sourceNet: 0, sourceHost: myHost, 

sourceSocketl: 0, sourceSocket2: 2, 
xSum: 177777B]; 
device. EBLocInterruptBit ^ 0; 
StartIO[ resetCommand]; 
devicet ♦- FthernetDeviceBlock[ 
FPLocMicrocodeStatus : 0, 
EPLocHardwareStatus: 0, 
FBl.ocInterruptBit: 0. 
rELocInputrinishCount: 0, 
CLLocCol 1 is ionMagic : 0, 
EILocInputCount: 0, 
riLocInputPoin ter : pup, 
EOLocOutputCount: 13, 
rOLocOutputPointer: @g a teway Request] ; 
StartIO[ou tputCommand] ; 
THROUGH [0. .2) DO 
DO 

IF device. FPLocHardwareStatus^O THEN 
BfGIN 

IF device . FPl^ocMicrocodeStatus = 
AND pup. head. eWordZ = lOOOB 
AND wordsPerPup+2-dev ice . FfLoclnputFin i shCoun t > 13 
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AND pup. head. destSocketl « 
AND pup. head. destSocket2 = 2 
AND pup. head. pupType = 201B 
THEN RETURN[pup.head.sourceNet3; 
devices ♦- EthernetDeviceB1ock[ 
EPLocMicrocodeStatus: 0, 
EPLocHardwareStatus: 0, 
EBLocInterruptBit: , 
EELocInputFinishCount: 0, 
ELLocColl isionMagic: 0, 
EILocInputCount: wordsPerPup+2 . 
EILocInputPointer: pup, 
EOLocOutputCount: 0, 
EOLocOutputPointer: NIL]; 
StartIO[inputCommand] ; 
END; 
now ♦• timert; 

IF now-then > 14 THEN EXIT; 
ENDLOOP; 
ENOLOOP; 
RETURN[0]; 
END; 



Init: PROCEDURE = 
BEGIN 
sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED 

REGISTER[SOreg]; 
sd[sGoingAway] ♦- UserCleanupProc; 
sd[sUnbound] *• UnboundProcedureTrap; 
sd[sStackError] ^ StackErrorTrap ; 
sd[sContro1Fau1t] *- Control FaultTrap; 
sd[sStringIni t] ♦- Strif>glnit; 
sd[sInPortInit] ♦- 0; 
sd[sOutPortInit] ♦• 0; 
sd[sDivSS] ♦• DivSS; 

sd[sDivSU] ^ DivSU; 

sd[sDivUS] ^ DivUS; 
sd[sCopy] ♦• Copy; 
sd[sUnNew] ♦■ UnNew; 
END; 



-- Main Body; 
Init[]; 
END. . . 



